home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
pcv05n12.zip
/
WINWORD.TXT
< prev
Wrap
Text File
|
1993-06-10
|
557b
|
21 lines
Declare Function IsAppLoaded Lib "Kernel"(Name$) As Integer Alias "GetModuleHandle"
Sub MAIN
FileSave
A$ = FileName$()
If IsAppLoaded("_Bnotes.EXE") = 0 Then Call StartNotes
If IsAppLoaded("_Bnotes.EXE") = 0 Then MsgBox "Can't start Notes" : Goto BackDoor
Channel = DDEInitiate("Notes", "SendMail")
If Channel > 0 Then
DDEExecute Channel, "NewMessage"
DDEExecute Channel, "AttachFile " + A$
DDEExecute Channel, "SEND"
DDETerminate Channel
End If
BackDoor:
End Sub
Sub StartNotes
Shell "C:\NOTES\_BNOTES.EXE", 0
End Sub